home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
- REM This is SECURE.BAT
- REM It blanks the screen; only Alt-A will unblank
- REM it. Color is set to blue (34) on white (47)
- IF EXIST KEY.COM GOTO START
- ECHO This needs KEY.COM to work properly.
- GOTO END
- :START
- ECHO Press any key to blank screen...
- PAUSE > NUL
- SET O=%PROMPT%
- ECHO ON
- PROMPT $E[8m;
- ECHO OFF
- CLS
- :TOP
- KEY
- IF ERRORLEVEL 30 IF NOT ERRORLEVEL 31 GOTO CLEAR
- GOTO TOP
- :CLEAR
- ECHO ON
- REM The next line sets blue (34) on white (47) colors
- PROMPT $E[0;34;47m
- ECHO OFF
- CLS
- PROMPT=%O%
- :END
-